home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm5 / awbmltym.lha / AWEBmailtoYAM / scripts / Choice3.rexx next >
OS/2 REXX Batch file  |  1996-09-27  |  936b  |  45 lines
  1. /* AWEBmailtoYAM V2 ©1996 ALeX Kazik*/
  2. OPTIONS RESULTS
  3. PARSE ARG mailto pubscreen
  4.  
  5. mailto = SUBSTR(mailto, 2, length(mailto)-2)
  6. pubscreen = SUBSTR(pubscreen, 3, length(pubscreen)-3)
  7.  
  8. i=30
  9.  
  10. IF ~SHOW('P','YAM') THEN DO  
  11.     CALL OPEN(1,'T:StartYAM',w)
  12.     CALL WRITELN(1,"stack 8196")
  13.     CALL WRITELN(1,"run <> NIL: YAM:YAM")
  14.     CALL CLOSE(1)
  15.     ADDRESS COMMAND 'execute <>NIL: T:StartYAM'
  16.     ADDRESS COMMAND 'delete <>NIL: T:StartYAM'
  17.     i = 15
  18.     DO UNTIL (SHOW('P','YAM')) | (i=0)
  19.         ADDRESS COMMAND 'Wait 2'
  20.         i = i - 1
  21.     END
  22.     IF ~SHOW('P','YAM') THEN DO  
  23.         ADDRESS COMMAND 'RequestChoice <>NIL: "Error" "Could''nt find/start YAM!" "OK" PUBSCREEN' pubscreen
  24.         EXIT
  25.     END
  26. END
  27.  
  28. CALL OPEN(4,'T:SendMail.tmp',w)
  29. CALL CLOSE(4)
  30.  
  31. ADDRESS 'YAM'
  32. IF (i=30) THEN
  33.     hide
  34. WriteMailTo mailto
  35. WriteSubject '""'
  36. WriteLetter 'T:SendMail.tmp'
  37. WriteQueue
  38. setfolder 1
  39. getfolderinfo max
  40. setmail result - 1
  41. IF (i=30) THEN
  42.     show
  43.  
  44. ADDRESS COMMAND 'delete <>NIL: T:SendMail.tmp'
  45.